home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
finput.zip
/
STRFMT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-12-26
|
1KB
|
73 lines
unit StrFmt;
interface
function SLongInt (L: longint) :string;
function SFLongInt(L: longint; Siz: integer) :string;
function SReal (R: real) :string;
function SFReal (R: real; Siz: integer) :string;
function SFDReal (R: real; Siz: integer; Dec: integer) :string;
implementation
function SLongInt;
var
RStr : ^string;
begin
asm
mov sp,bp
push ss
push word ptr [bp+0ah]
end;
str(L, RStr^);
end;
function SFLongInt;
var
RStr : ^string;
begin
asm
mov sp,bp
push ss
push word ptr [bp+0ch]
end;
str(L:Siz, RStr^);
end;
function SReal;
var
RStr : ^string;
begin
asm
mov sp,bp
push ss
push word ptr [bp+0ch]
end;
str(R, RStr^);
end;
function SFReal;
var
RStr : ^string;
begin
asm
mov sp,bp
push ss
push word ptr [bp+0eh]
end;
str(R:Siz, RStr^);
end;
function SFDReal;
var
RStr : ^string;
begin
asm
mov sp,bp
push ss
push word ptr [bp+10h]
end;
str(R:Siz:Dec, RStr^);
end;
end.